home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / background_41313.txt < prev    next >
Text File  |  1990-08-24  |  2KB  |  99 lines
  1. -- background: 41313 from stack: in.0
  2. -- bmap block id: 41784
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -- This handler goes back to the last card if the user clicks
  8. -- outside the "window".
  9. on mouseUp
  10.   if "field" is not word 2 of the target and "button" is not word 2 of the target then send "goBack" to this cd
  11. end mouseUp
  12.  
  13. on goBack
  14.   go cd "Improved Printi"
  15. end goBack
  16.  
  17.  
  18.  
  19. -- part 5 (field)
  20. -- low flags: 01
  21. -- high flags: 0000
  22. -- rect: left=61 top=98 right=312 bottom=411
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 174
  27. -- text size: 14
  28. -- style flags: 0
  29. -- line height: 15
  30. -- part name: 
  31.  
  32.  
  33. -- part 6 (field)
  34. -- low flags: 01
  35. -- high flags: 0000
  36. -- rect: left=61 top=74 right=99 bottom=411
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 174
  41. -- text size: 18
  42. -- style flags: 0
  43. -- line height: 20
  44. -- part name: 
  45.  
  46.  
  47. -- part 7 (button)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=47 top=47 right=318 bottom=424
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: wind
  59.  
  60.  
  61. -- part 8 (button)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=54 top=49 right=64 bottom=74
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: closebox
  73. ----- HyperTalk script -----
  74. -- This handler sets the cursor to simulate a real closeBox.
  75. on mouseEnter
  76.   set the cursor to "arrow"
  77. end mouseEnter
  78.  
  79. -- This handler sets the cursor to simulate a real closeBox.
  80. on mouseWithIn
  81.   repeat until the mouseloc is not within the rect of me or the mouse is down
  82.     set the cursor to "arrow"
  83.   end repeat
  84.   if the mouse is down then
  85.     send mouseUp to me
  86.   end if
  87. end mouseWithIn
  88.  
  89. -- This handler simulates clicking in a closeBox.
  90. on mouseUp
  91.   set the icon of me to 7937
  92.   wait 15
  93.   set the icon of me to 0
  94.   lock screen
  95.   goBack
  96.   unlock screen
  97. end mouseUp
  98.  
  99.